home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / bestofsd.lha / HoneyIsCool.AMOS / HoneyIsCool.amosSourceCode < prev    next >
AMOS Source Code  |  1992-10-20  |  753b  |  13 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Screen Open 0,320,256,2, : Curs Off : Degree : Palette ,0 : Hide 
  10. Do : A=Rnd(360) : B=Rnd(360) : C=0 : F=Rnd(2)+1 : E=Rnd(2)+1 : Fade 4,0,$F9F
  11.    For N=0 To 360 : Inc C : XA#=Abs(Cos(C*F+A))*92 : YA#=Abs(Sin(C*E+B))*92
  12.       X=159+Sin(C)*XA#+Sin(C)*32 : Y=127+Cos(C)*YA#+Cos(C)*32
  13. Paste Bob X,Y,1 : Next : Wait 10 : Fade 2,,0 : Wait 32 : Cls : Loop